home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / batchlib / record_data_batch.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-08  |  1.9 KB  |  60 lines
  1.  
  2. #include <stdio.h>
  3.  
  4.  
  5. record_data_batch(v, color)
  6. double          v[];
  7. int             color;
  8. {
  9.     int i;
  10.     extern FILE *ffp;
  11.     extern int func_on;
  12.     extern int var_dim;
  13.     extern int var_dim,param_dim,func_dim,full_dim;
  14.     extern int region_index;
  15.     extern int clipping;
  16.     extern int var_dim,param_dim,var_cur_index[],param_cur_index[];
  17.     extern double *all_min,*all_max;
  18.  
  19.     if(region_index == 1){
  20.         if(clipping == 0 || (clipping == 1 
  21.             && (v[var_cur_index[0]] > all_min[var_cur_index[0]])
  22.             && (v[var_cur_index[0]] < all_max[var_cur_index[0]])
  23.             && (v[var_cur_index[1]] > all_min[var_cur_index[1]])
  24.             && (v[var_cur_index[1]] < all_max[var_cur_index[1]]))){
  25.             fprintf(ffp,"%%XC%d",color);
  26.             for (i = 0; i < full_dim; i++) fprintf(ffp," %.14lg",v[i]);
  27.             fprintf(ffp,"\n");
  28.         }
  29.     }
  30.     else if(region_index == 0){
  31.         if(clipping ==  0|| (clipping == 1 
  32.             && (v[param_cur_index[0]] > all_min[full_dim+param_cur_index[0]])
  33.             && (v[param_cur_index[0]] < all_max[full_dim+param_cur_index[0]])
  34.             && (v[param_cur_index[1]] > all_min[full_dim+param_cur_index[1]])
  35.             && (v[param_cur_index[1]] < all_max[full_dim+param_cur_index[1]]))){
  36.             fprintf(ffp,"%%XC%d",color);
  37.             for (i = 0; i < param_dim; i++) fprintf(ffp," %.14lg",v[i]);
  38.             fprintf(ffp,"\n");
  39.         }
  40.     }
  41.  
  42.     /* aux window data */
  43.     else if(region_index ==2){
  44.     extern int aux_win_i,**aux_cur_index;
  45.     extern double **aux_x_min,**aux_x_max;
  46.  
  47.         if(clipping == 0 || (clipping == 1
  48.              && (v[aux_cur_index[aux_win_i][0]] > aux_x_min[aux_cur_index[aux_win_i][0]][aux_win_i])
  49.             && (v[aux_cur_index[aux_win_i][0]] < aux_x_max[aux_cur_index[aux_win_i][0]][aux_win_i])
  50.             && (v[aux_cur_index[aux_win_i][1]] > aux_x_min[aux_cur_index[aux_win_i][1]][aux_win_i])
  51.             && (v[aux_cur_index[aux_win_i][1]] < aux_x_max[aux_cur_index[aux_win_i][1]][aux_win_i])) ){      
  52.             fprintf(ffp,"%%XC%d",color);
  53.             for (i = 0; i < full_dim+param_dim; i++) fprintf(ffp," %.14lg",v[i]);
  54.             fprintf(ffp,"\n");
  55.                 }
  56.  
  57.     }
  58.  
  59. }
  60.